home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / MENU.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-24  |  891b  |  19 lines
  1. PROCEDURE MENU(OPT:INTEGER);
  2.    VAR
  3.      MOPT:ARRAY[1..5] OF SCRLINE;
  4.    BEGIN
  5.             (* 12345678901234567890123456789012345678901234567890123456789012345678901234567890 *)
  6.    MOPT[1] := ' OBJECT    OPER-1    OPER-2    CONFIG    LOAD      SAVE      PRINT     QUIT    ';
  7.    MOPT[2] := ' POINT     LINE      V-LINE    H-LINE    BOX       CIRCLE              TOP MENU';
  8.    MOPT[3] := ' SEL-MODE  ERASE     MERGE     RE-DRAW                                 TOP MENU';
  9.    MOPT[4] := ' SCALE     ZOOM-IN   ZOOM-OUT  X-LATE    PAN       ROTATE              TOP MENU';
  10.    MOPT[5] := ' BELL      CONT-LIN  COLOR     CIRC-SEG  WLDSIZ                        TOP MENU';
  11.    M1 := 2;             (* HIDE MOUSE *)
  12.    MOUSE(M1,M2,M3,M4);
  13.    MOVCUR(21,1);
  14.    WRITE(BLKLINE);
  15.    MOVCUR(21,1);
  16.    WRITE(MOPT[OPT]);
  17.    M1 := 1;             (* SHOW MOUSE *)
  18.    MOUSE(M1,M2,M3,M4);
  19.    END;